home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / Simulation.AmiCAD < prev    next >
Text File  |  1998-08-08  |  572b  |  26 lines
  1. /* Lancement simulation analogique */
  2.  
  3. options results     /* indispensable pour récupérer le résultat des macros */
  4.  
  5. signal on error     /* pour l'interception des erreurs */
  6. signal on syntax
  7.  
  8. 'REQFILE("Choix d''une netlist", "Spice")'
  9. fichier=result
  10. if fichier~="" then do
  11.     address command
  12.     'execute Travail:spice3f5/Simuler "'fichier'"'
  13. end
  14.  
  15. exit
  16.  
  17. /* Traitement des erreurs, interruption du programme */
  18. syntax:
  19. erreur=RC
  20. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  21. exit
  22.  
  23. error:
  24. 'MESSAGE("Erreur en ligne 'SIGL'")'
  25. exit
  26.